home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1468 / clock12.frm < prev    next >
Text File  |  1996-07-19  |  3KB  |  115 lines
  1. VERSION 4.00
  2. Begin VB.Form Clock12 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "12 Hour Clock"
  5.    ClientHeight    =   1500
  6.    ClientLeft      =   60
  7.    ClientTop       =   5490
  8.    ClientWidth     =   3570
  9.    Height          =   1905
  10.    Icon            =   "Clock12.frx":0000
  11.    Left            =   0
  12.    LinkTopic       =   "Form1"
  13.    LockControls    =   -1  'True
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   1500
  17.    ScaleWidth      =   3570
  18.    ShowInTaskbar   =   0   'False
  19.    Top             =   5145
  20.    Width           =   3690
  21.    Begin VB.CheckBox chkFlashDigits 
  22.       Caption         =   "Flash digits"
  23.       Height          =   300
  24.       Left            =   120
  25.       TabIndex        =   1
  26.       Top             =   840
  27.       Width           =   1875
  28.    End
  29.    Begin VB.CommandButton cmdBackColor 
  30.       Caption         =   "BackColor"
  31.       Height          =   315
  32.       Left            =   2400
  33.       TabIndex        =   4
  34.       Top             =   480
  35.       Width           =   1095
  36.    End
  37.    Begin VB.CommandButton cmdForeColor 
  38.       Caption         =   "ForeColor"
  39.       Height          =   315
  40.       Left            =   2400
  41.       TabIndex        =   3
  42.       Top             =   120
  43.       Width           =   1095
  44.    End
  45.    Begin VB.CheckBox Check1 
  46.       Caption         =   "Show unlit segments"
  47.       Height          =   300
  48.       Left            =   120
  49.       TabIndex        =   2
  50.       Top             =   1140
  51.       Value           =   1  'Checked
  52.       Width           =   1875
  53.    End
  54.    Begin VB.PictureBox picLCD 
  55.       ForeColor       =   &H00008080&
  56.       Height          =   435
  57.       Left            =   120
  58.       ScaleHeight     =   375
  59.       ScaleWidth      =   2115
  60.       TabIndex        =   0
  61.       Top             =   180
  62.       Width           =   2175
  63.    End
  64.    Begin VB.Timer Timer1 
  65.       Interval        =   1000
  66.       Left            =   2220
  67.       Top             =   900
  68.    End
  69. End
  70. Attribute VB_Name = "Clock12"
  71. Attribute VB_Creatable = False
  72. Attribute VB_Exposed = False
  73. Option Explicit
  74.  
  75. Dim moLCD As New CLCD
  76.  
  77.  
  78. Private Sub Form_Load()
  79.  
  80.     With moLCD
  81.         .Alignment = gnCENTER
  82.         .ShowUnlitSegments = True
  83.         Set .Container = picLCD
  84.     End With
  85.     
  86.     Timer1_Timer
  87.     
  88. End Sub
  89.  
  90. Private Sub Form_Unload(Cancel As Integer)
  91.     Set moLCD = Nothing
  92.     Set Clock12 = Nothing
  93. End Sub
  94.  
  95. Private Sub Timer1_Timer()
  96.     moLCD.Caption = Format$(Now, "h:mm:ss A/P")
  97. End Sub
  98.  
  99. Private Sub Check1_Click()
  100.     moLCD.ShowUnlitSegments = Not moLCD.ShowUnlitSegments
  101. End Sub
  102.  
  103. Private Sub cmdForeColor_Click()
  104.     moLCD.SelectForeColor
  105. End Sub
  106.  
  107. Private Sub cmdBackColor_Click()
  108.     moLCD.SelectBackColor
  109. End Sub
  110.  
  111. Private Sub chkFlashDigits_Click()
  112.     moLCD.FlashDigits = Not moLCD.FlashDigits
  113. End Sub
  114.  
  115.